home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / pdf_font.ps < prev    next >
Text File  |  1997-08-14  |  14KB  |  437 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_font.ps
  19. % PDF font operations.
  20.  
  21. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  22. .currentglobal true .setglobal
  23. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  24. GS_PDF_ProcSet begin
  25. pdfdict begin
  26.  
  27. % We cache the PostScript font in an additional element of the
  28. % font resource dictionary, called PSFont.
  29.  
  30. % ---------------- Encodings ---------------- %
  31.  
  32. % Apply a list of differences to an Encoding.
  33. /updateencoding        % <encoding> <differences> updateencoding <enc'>
  34.  { exch dup length array copy
  35.    exch dup 0 get exch dup length 1 sub
  36.    1 exch getinterval
  37.     { dup type /nametype ne
  38.        { exch pop }
  39.        { 3 copy put pop 1 add }
  40.       ifelse
  41.     }
  42.    forall pop
  43.  } bdef
  44.  
  45. % Get the Encoding for a font.
  46. /getencoding        % <base-encoding> <font-resource> getencoding <enc>
  47.  { /Encoding knownoget
  48.     { dup type /nametype eq
  49.        { exch pop findencoding
  50.        }
  51.        { dup /BaseEncoding knownoget
  52.       { findencoding 3 -1 roll pop exch
  53.       }
  54.      if
  55.      /Differences knownoget { updateencoding } if
  56.        }
  57.       ifelse
  58.     }
  59.    if
  60.  } bdef
  61.  
  62. % Adjust a font according to the Encoding and Widths in the font resource.
  63. /adjustfont        % <font-resource> <font> adjustfont
  64.             %   <font'> <changed>
  65.  { getfontencoding getfontmetrics 4 -1 roll pop .updatefont
  66.     { dup /FontName 2 copy get genfontname dup 5 1 roll put definefont }
  67.    if
  68.  } bind def
  69.  
  70. % Get the (possibly modified) encoding of a font.
  71. /getfontencoding    % <font-resource> <font> getfontencoding
  72.             %   <font-resource> <font> <encoding>
  73.  { dup /Encoding get 2 index getencoding
  74.  } bdef
  75.  
  76. % Get the metrics of a font, if specified.
  77. /getfontmetrics        % <font-resource> <font> <encoding> getfontmetrics
  78.             %   <font-resource> <font> <encoding> <Metrics|null>
  79.  { 2 index /Widths known
  80.     { 2 dict begin
  81.       /Encoding exch def
  82.       /Metrics Encoding length dict def
  83.       exch
  84.         % Stack: font font-res
  85.         % Note that widths are always based on a 1000-unit
  86.         % character space, but the FontMatrix may specify
  87.         % some other scale factor.  Compensate for this here,
  88.         % by scaling the Widths if necessary.
  89.       0.001 2 index /FontMatrix get 0 get div
  90.         % Stack: font font-res mscale
  91.       1 index /FirstChar oget dup 1 4 index /LastChar oget
  92.        {    % Stack: font font-res mscale first-char index
  93.      Encoding 1 index get
  94.      4 index /Widths oget 2 index 4 index sub get
  95.          % Stack: font font-res mscale first-char index charname width
  96.      4 index mul
  97.         % There is a hack here to deal with encodings where the
  98.         % same character appears more than once, because the Metrics
  99.         % dictionary works by character name, not by character code.
  100.         % Because of this, we can't deal with Width vectors that
  101.         % specify different widths for the same character name
  102.         % appearing multiple times in the Encoding.
  103.      Metrics 2 index .knownget not { 0 } if 0 ne
  104.       { pop pop }
  105.       { Metrics 3 1 roll put }
  106.      ifelse pop
  107.        }
  108.       for pop
  109.         % Now fill in the MissingWidth for any encoded characters
  110.         % that aren't in Metrics already.
  111.         % Stack: font font-res mscale
  112.       Metrics 2 index /FontDescriptor oget
  113.       /MissingWidth knownoget { 2 index mul } { 0 } ifelse exch
  114.       Encoding
  115.        {    % Stack: font font-res mscale missing-width metrics charname
  116.      2 copy known not { 2 copy 4 index put } if pop
  117.        }
  118.       forall pop pop pop
  119.       exch Encoding Metrics end
  120.     }
  121.     { null
  122.     }
  123.    ifelse
  124.  } bdef
  125.  
  126. % ---------------- Descriptors ---------------- %
  127.  
  128. % Partial descriptors for the 14 built-in fonts.
  129. /standardfontdescriptors mark
  130.   /Courier mark /Flags 16#23 .dicttomark
  131.   /Courier-Oblique 1 index
  132.   /Courier-Bold 1 index
  133.   /Courier-BoldOblique 1 index
  134.   /Helvetica mark /Flags 16#20 .dicttomark
  135.   /Helvetica-Oblique 1 index
  136.   /Helvetica-Bold 1 index
  137.   /Helvetica-BoldOblique 1 index
  138.   /Times-Roman mark /Flags 16#22 .dicttomark
  139.   /Times-Bold 1 index
  140.   /Times-Italic mark /Flags 16#62 .dicttomark
  141.   /Times-BoldItalic 1 index
  142.   /Symbol mark /Flags 16#4 .dicttomark
  143.   /ZapfDingbats 1 index
  144. .dicttomark readonly def
  145.  
  146. % ---------------- Utilities ---------------- %
  147.  
  148. % Fabricate a font name by adding %'s on the end.
  149. /genfontname        % <name> genfontname <name>
  150.  { dup length string cvs
  151.     { (%) concatstrings
  152.       dup cvn FontDirectory exch known not { cvn exit } if
  153.     }
  154.    loop
  155.  } bdef
  156.  
  157. % Find a font, and adjust its encoding if necessary.
  158. /pdffindfont        % <font-resource> <fontname> pdffindfont <font>
  159.  { findfont adjustfont
  160.  } bdef
  161.  
  162. % ---------------- Type 1 fonts ---------------- %
  163.  
  164. /buildType1        % <Type1-font-resource> buildType1 <font>
  165.  { dup /BaseFont get pdffindfont
  166.  } bdef
  167.  
  168. % The state dictionary for the embedded Type 1 font reading procedure
  169. % has the following keys and values:
  170. %    data - stream (filter)
  171. %    buffer, buffer2 - string
  172. %    leftstr - string containing (non-negative) integer
  173. %    sectionstr - string containing a character 0 .. 2
  174. %    stream - (stream) dictionary
  175. %    proc - procedure of the form {-dict- type1read}
  176. % When the procedure is executing, this dictionary is current.
  177. % leftstr and sectionstr are strings so that we can change their values
  178. % reliably in case the font executes a restore!
  179.  
  180. % Read an embedded Type 1 font.
  181. /readfontfilter        % <proc> readfontfilter <filter>
  182.  {    % We make this a separate procedure so that we can
  183.     % redefine it when we're writing PostScript.
  184.    0 () /SubFileDecode filter
  185.  } bdef
  186. /readtype1        % <font-resource> <stream-dict> readtype1 <font>
  187.  {        % Read the definition, using a procedure-based filter
  188.         % that turns binary/hex conversion on and off
  189.         % at the right times.
  190.    PDFfile fileposition 3 1 roll
  191.    7 dict begin
  192.      /leftstr (          ) 10 string copy def
  193.        dup /Length1 oget leftstr cvs pop
  194.      /sectionstr <00> 1 string copy def
  195.      /stream 1 index def
  196.      true resolvestream /data exch def
  197.      /buffer 1000 string def        % arbitrary
  198.      /buffer2 buffer length 2.1 div cvi 1 sub string def
  199.    currentdict end
  200.    /type1read cvx 2 array astore cvx dup 0 get /proc 2 index put
  201.    readfontfilter
  202.         % Some buggy embedded fonts leave extra junk on the stack,
  203.         % so we have to make a closure that records the stack depth
  204.         % in a fail-safe way.
  205.    //systemdict begin
  206.     { run } aload pop count 1 sub 2 packedarray cvx exec
  207.    end
  208.    count exch sub { pop } repeat
  209.    PDFfile 3 -1 roll setfileposition
  210.    /FontDescriptor oget /FontName oget findfont
  211.  } bdef
  212.  
  213. % Execute the appropriate reading procedure.
  214. /type1read        % <dict> type1read <string>
  215.  { begin leftstr cvi
  216.     { type1read1 type1read2 type1read3 } sectionstr 0 get get exec
  217.    (          ) leftstr copy cvs pop end
  218.  } bdef
  219.  
  220. % Read the next block of data into the buffer.
  221. /type1readdata        % <left> <buffer> type1readdata <substring> <left'>
  222.  { 0 2 index 2 index length min getinterval
  223.         % Adobe requires readstring to signal an error if given
  224.         % an empty string.  Work around this nonsense here.
  225.    dup length 0 ne { data exch readstring pop } if
  226.    dup length 3 -1 roll exch sub
  227.    DEBUG
  228.     { dup =only ( read ) print
  229.       1 index length =only (: ) print
  230.       1 index == flush
  231.     } if
  232.  } bdef
  233.  
  234. % Read the next block of the initial text portion.
  235. /type1read1        % <left> type1read1 <string> <left'>
  236.  { DEBUG { (read1 ) print } if
  237.    dup 0 eq
  238.     { pop sectionstr 0 1 put
  239.       stream /Length2 oget type1read2
  240.     }
  241.     { buffer type1readdata
  242.     }
  243.    ifelse
  244.  } bdef
  245.  
  246. % Read the next block of the encrypted portion.
  247. /type1trailer
  248. (0000000000000000000000000000000000000000000000000000000000000000\n\
  249. 0000000000000000000000000000000000000000000000000000000000000000\n\
  250. 0000000000000000000000000000000000000000000000000000000000000000\n\
  251. 0000000000000000000000000000000000000000000000000000000000000000\n\
  252. 0000000000000000000000000000000000000000000000000000000000000000\n\
  253. 0000000000000000000000000000000000000000000000000000000000000000\n\
  254. 0000000000000000000000000000000000000000000000000000000000000000\n\
  255. 0000000000000000000000000000000000000000000000000000000000000000\n\
  256. cleartomark\n)
  257. readonly def
  258. /type1read2        % <left> type1read2 <string> <left'>
  259.  { DEBUG { (read2 ) print } if
  260.    dup 0 eq
  261.     { pop sectionstr 0 2 put
  262.       stream /Length3 oget
  263.       dup 0 eq
  264.        { DEBUG { (trailer ) print } if
  265.      type1trailer exch
  266.        }
  267.        { type1read3
  268.        }
  269.       ifelse
  270.     }
  271.     { buffer2 type1readdata exch
  272.       buffer /ASCIIHexEncode filter dup 3 -1 roll writestring closefile
  273.       buffer (>) search pop exch pop exch pop exch
  274.     }
  275.    ifelse
  276.  } bdef
  277.  
  278. % Read the next block of the final text portion.
  279. % When finished, this procedure returns an empty string.
  280. /type1read3        % <left> type1read3 <string> <left'>
  281.  { DEBUG { (read3 ) print } if
  282.    buffer type1readdata
  283.  } bdef
  284.  
  285. % ---------------- Type 3 fonts ---------------- %
  286.  
  287. /.notdefEncoding 256 { /.notdef } repeat 256 packedarray def
  288.  
  289. /buildType3        % <Type3-font-resource> buildType3 <font>
  290.   { 8 dict begin
  291.     /FontType 3 def
  292.     /FontBBox 1 index /FontBBox get cvx def
  293.     /FontMatrix 1 index /FontMatrix oget def
  294.     /CharProcs 1 index /CharProcs oget def
  295.     /FontName 1 index /Name get genfontname def
  296.     /Encoding .notdefEncoding 2 index getencoding def
  297.     /BuildGlyph
  298.      { exch /CharProcs get exch oget
  299.        PDFfile fileposition exch
  300.        false resolvestream
  301.         % Don't let setgcolor set the color inside the BuildGlyph
  302.         % procedure, because this causes an /undefined error.
  303.        q_ null /FillColor gput null /StrokeColor gput
  304.        pdfopdict .pdfrun
  305.        Q_
  306.        PDFfile exch setfileposition
  307.      } bdef
  308.     FontName currentdict end definefont exch pop
  309.   } bdef
  310.  
  311. % ---------------- TrueType fonts ---------------- %
  312.  
  313. /TTfonts mark
  314.   /Arial /Helvetica
  315.   /Arial,Italic /Helvetica-Oblique
  316.   /Arial,Bold /Helvetica-Bold
  317.   /Arial,BoldItalic /Helvetica-BoldOblique
  318.   /TimesNewRoman /Times-Roman
  319.   /TimesNewRoman,Italic /Times-Italic
  320.   /TimesNewRoman,Bold /Times-Bold
  321.   /TimesNewRoman,BoldItalic /Times-BoldItalic
  322. .dicttomark readonly def
  323.  
  324. /buildTrueType        % <TrueType-font-resource> buildTrueType <font>
  325.  { dup /BaseFont get
  326.    dup TTfonts exch .knownget { exch pop } if pdffindfont
  327.  } bdef
  328.  
  329. % Read an embedded TrueType font.
  330. /readtruetype        % <font-resource> <stream-dict> readtruetype <font>
  331.  {        % This is much simpler than readtype1, because we don't
  332.         % have to deal with the tripartite .PFB format.
  333.    PDFfile fileposition 3 1 roll
  334.    true resolvestream readfontfilter .loadttfont
  335.    dup /FontName get exch definefont exch pop
  336.    PDFfile 3 -1 roll setfileposition
  337.  } bdef
  338.  
  339. % ---------------- Type 0 fonts ---------------- %
  340. %**************** NOT ACTUALLY SUPPORTED YET
  341.  
  342. /buildType0        % <Type0-font-resource> buildType0 <font>
  343. { 10 dict begin
  344.   /FontType 0 def
  345.   /FontMatrix 1 index /FontMatrix knownoget not { matrix } if def
  346.   /FontName 1 index /BaseFont get def
  347.   /FMapType 9 def
  348.   /Encoding [ 0 1 4 index /DescendantFonts oget length 1 sub { } for ] def
  349.   /FDepVector [ 2 index /DescendantFonts oget { exec } forall ] def
  350.   /CMap 1 index /Encoding oget
  351.     dup type /nametype eq
  352.      { dup Page /CMap rget
  353.         { exch pop resolvestream } { /undefined signalerror } ifelse
  354.      }
  355.      { resolvestream
  356.      }
  357.     ifelse
  358.   % FontName currentdict end definefont exch pop
  359.   end pop /Times-Roman findfont
  360. } bdef
  361.  
  362. % ---------------- Other embedded fonts ---------------- %
  363.  
  364. /fontloadprocs mark
  365.   /Type1C /readType1C cvx
  366. .dicttomark readonly def
  367.  
  368. % Read an embedded compressed font.
  369. /readType1C        % <font-resource> <stream-dict> readType1C <font>
  370.  { PDFfile fileposition 3 1 roll
  371.    dup true resolvestream dup readfontfilter
  372.         % Stack: pos resource streamdict stream filter
  373.    3 index /FontDescriptor oget /FontName oget
  374.    1 index FRD
  375.    closefile closefile pop
  376.    PDFfile 3 -1 roll setfileposition
  377.    /FontDescriptor oget /FontName oget findfont
  378.  } bdef
  379.  
  380. % ---------------- Font lookup ---------------- %
  381.  
  382. /fonttypeprocs mark        % <font-resource> -proc- <font>
  383.   /Type0 /buildType0 cvx
  384.   /Type1 /buildType1 cvx
  385.   /MMType1 1 index
  386.   /Type3 /buildType3 cvx
  387.   /TrueType /buildTrueType cvx
  388. .dicttomark readonly def
  389.  
  390. /resourcefont            % <font-resource> resourcefont <font>
  391.  { dup /PSFont .knownget
  392.     { /FID .knownget { type /fonttype eq } { false } ifelse }
  393.     { false }
  394.    ifelse
  395.     { /PSFont get
  396.     }
  397.     { dup dup /FontDescriptor knownoget
  398.        {    % Stack: font-res font-res font-desc
  399.      dup /FontFile knownoget
  400.       { exch pop 1 index 3 1 roll readtype1 adjustfont true }
  401.       { dup /FontFile2 knownoget
  402.          { exch pop 1 index 3 1 roll readtruetype adjustfont true }
  403.          { /FontFile3 knownoget
  404.         { 1 index exch dup /Subtype get fontloadprocs exch get exec adjustfont true }
  405.         { false }
  406.            ifelse
  407.          }
  408.         ifelse
  409.       }
  410.      ifelse
  411.        }
  412.        { false }
  413.       ifelse
  414.         % Stack: font-res font-res false
  415.         %  -or-: font-res font true
  416.       not
  417.        { dup /Subtype get fonttypeprocs exch get exec }
  418.       if
  419.       2 copy /PSFont exch put
  420.       exch pop
  421.     }
  422.    ifelse
  423.  } bdef
  424.  
  425. drawopdict begin
  426.   /d0 /setcharwidth load def
  427.   /d1 /setcachedevice load def
  428.   /Tf
  429.    { exch Page /Resources oget /Font oget exch oget resourcefont
  430.      exch Tf
  431.    } bdef
  432. end
  433.  
  434. end            % pdfdict
  435. end            % GS_PDF_ProcSet
  436. .setglobal
  437.